home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB5 Code / Class 6 / QuickExample2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-07  |  2.6 KB  |  87 lines
  1. VERSION 5.00
  2. Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   855
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3645
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   855
  11.    ScaleWidth      =   3645
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin ComCtl2.UpDown UpDown2 
  14.       Height          =   495
  15.       Left            =   3000
  16.       TabIndex        =   1
  17.       Top             =   120
  18.       Width           =   240
  19.       _ExtentX        =   423
  20.       _ExtentY        =   873
  21.       _Version        =   327681
  22.       Value           =   1
  23.       BuddyControl    =   "Label2"
  24.       BuddyDispid     =   196611
  25.       OrigLeft        =   3240
  26.       OrigRight       =   3480
  27.       OrigBottom      =   735
  28.       Max             =   31
  29.       Min             =   1
  30.       SyncBuddy       =   -1  'True
  31.       BuddyProperty   =   65537
  32.       Enabled         =   -1  'True
  33.    End
  34.    Begin ComCtl2.UpDown UpDown1 
  35.       Height          =   495
  36.       Left            =   1440
  37.       TabIndex        =   0
  38.       Top             =   120
  39.       Width           =   240
  40.       _ExtentX        =   423
  41.       _ExtentY        =   873
  42.       _Version        =   327681
  43.       Value           =   1
  44.       OrigLeft        =   1440
  45.       OrigRight       =   1680
  46.       OrigBottom      =   735
  47.       Max             =   12
  48.       Min             =   1
  49.       Enabled         =   -1  'True
  50.    End
  51.    Begin VB.Label Label2 
  52.       Caption         =   "Label2"
  53.       Height          =   495
  54.       Left            =   1920
  55.       TabIndex        =   3
  56.       Top             =   120
  57.       Width           =   975
  58.    End
  59.    Begin VB.Label Label1 
  60.       Caption         =   "Label1"
  61.       Height          =   495
  62.       Left            =   120
  63.       TabIndex        =   2
  64.       Top             =   120
  65.       Width           =   1215
  66.    End
  67. Attribute VB_Name = "Form1"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Option Explicit
  73. Dim Month(12) As String
  74. Private Sub Form_Load()
  75. Month(1) = "January": Month(2) = "February"
  76. Month(3) = "March": Month(4) = "April"
  77. Month(5) = "May": Month(6) = "June"
  78. Month(7) = "July": Month(8) = "August"
  79. Month(9) = "September": Month(10) = "October"
  80. Month(11) = "November": Month(12) = "December"
  81. Label1.Caption = Month(1)
  82. Label2.Caption = "1"
  83. End Sub
  84. Private Sub UpDown1_Change()
  85. Label1.Caption = Month(UpDown1.Value)
  86. End Sub
  87.